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FACILITY: FIITACP Structure Level 1 
ABSTRACT: 
This routine converts the specified file name string into the RAD-50 
name block format. It also saves the original pattern in case 
character wildcarding is used. 
ENVIRONMENT: 


| 
VAX/VMS operating system, including privileged system services | 
and internal exec routines. 


AUTHOR: L. Mark Pilant CREATION DATE: + salt ta 10:00 
(Original BLISS version by Andy Goldstein) 


MODIFIED BY: 


v03-001 LnPo2de L. Mark Pilant, 2-Aug-1984 11:54 
AAT gue that caused digits in the file type field to be 
gar 
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; Structure and offset definitions. 
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; (These constants are determined by the offsets into the type tables 


3; below.) 

0000001 PERCENT= 1 3; Percent sign (%) 
£000000¢ 00 STARS g S pateriah (tt 
444 00 DIGIT= ; Numeric digit 

000004 000 LC_ALPHA= 4 ; Lower case alphabetic 
00000005 000 UC” ALPHA= 5 ; Upper case alphabetic 
BRR ROR $ of= § ; Period (.) 

0000 3 SEMI= 3 Semi-colon (;) 


; Tables used to determine the above offsets: 
-PSECT S$CODES,NOWRT,2 


LO_CHR_TABLE: 

eASCII <0>/%*0aA.;/ 
HI_CHR_TABLE: 

eASCII <0>/%*927.;/ 


38 2E 41 61 30 2A 25 00 
38 2E SA 7A 39 2A 25 00 


Special note: 
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Throughout the following routine, the following register 
assignments are used: 


30000 0000 09 00 09 09 09 09 09 09 SINININI NINN NOOO 
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R6 = the number of characters remaining in the string 
R7 = the address of the next character 


; Character type codes. These are used to determine the action to take. 
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MAKNMB 
v04-000 


* 
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FUNCTIONAL DESCRIPTION: | 


a seuncae converts a file name string into the RAD-50 name block 
ormat. 


CALLING SEQUENCE: 
MAKE _NAMEBLOCK (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: 
ARG1: address of FIB if pattern parse 


0 if resultant file string parse 
ARG2: Length of file name string 
ARGS: address of file name string 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
ARG4: address of file name block 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NON 
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ate wMatatiadiadebadadadadudadtabatatadad ata dab adatadadbatabaiadadaiabadiabadabaatabababadabababababadbabad 
DUA BBB BEE EB EAA ANNI PPO PONININPONNY 2 2 OO SS QOD OOOOOOOOWOO 


00000004 FIB= 4 ; ARG List offsets 
00000008 LENGTH= 8 
0000000¢ STRING= 12 
00000010 NAME _BLOCK= 6 | 
OFFC -ENTRY MAKE_NAMEBLOCK,“M<R2,R3,R4,R5,R6,R7,.R8,R9,R10,R11> 
59 10 AC 00 MOVL NAME _BLOCK(AP) ,R9 ; Get address of name block | 
69 28 00 6€ 00 2 MOVCS #0,(SP),#O,#NMBSC_LENGTH,(R9) ;: Clear out bloc | 
57 OC AC DO C MOVL  STRING(AP)<R7 : Get address of first character | 
67 OBA 20 A g LOCC. #AA/ / LENGTH (AP) , (R7) : Find the end of the string 
56 CS 3 3 SUBL3 R7,R1,R : Calculate size of the string | 
SA 06.09 «E0029 MOVAB NMBSW_NAME(R9) ,R1 ; Where RAD-50 name goes | 
5B 213:A9—«(O9E D MOVAB NMBST-ASCNAMTXT(R9) R11 ; Where ASCII pattern goes 
5B oD 1 PUSHL R11 3; Save current pattern pointer | 
; Build the file name field. This consists of 3 words of 3 RAD-50 characters 
3 in each word. 
53 3. «pd MOVL #3,R3 ; Number of words to do 
4 04 6 CLRL RG ; Clear wildcard flag 
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ok eee 
09 
51 20 
50 51 0040 8F 
6A 50 
8B 51 
56 OD 
O¢ 1 
5 ) 
co 55 «OF 
8A 6B 
B8 53 OF 
58 04 AC 09 
QOD 1 
08 14 A8 O05 €1 
5B 46E 00 
2A 90 
12 «11 
50 BE 9) C1 
& oe 
14 «#1 
02 54 01 
7. Ve 
5B 450 = =o 
4 12 
10 A9 0 a 
10 A9 «=60100 BF OA 
51 67 9A 
00F9 30 
07 00 50 CF 
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name block 16-SEP-1984 00:43:57 VAX/VMS Macro V04-00 Page 
CK = Bui id RAD-50 name block aioe RHE F11A.SRCJMAKNMB.MAR; 1 ° 3) 
153 10$: OVL #3,R5 3 Number of characters to pack 
154 i: MULW2 fi (R10) 3; Make room for RAD-5 cher 
155 MOVZBL (R § RI ; Get next source string char 
1 § SBW TYPE 3; Determine character class 
1 1 + CASEL RO, #0, #7 ; Dispatch on character class 
1 : 40$:  <.WORD 1168-468 : End of the string 
1 «WORD gare ; Percent sign 
160 WORD 5 st 3; Asterisk 
161 «WORD 8 $ 3 Digit 
16¢ WORD $-40$ ; Lower case alphabetic 
16 -WORD 80$-40$ 3; Upper case alphabetic 
164 WORD 1198-288 3; Period 
165 eWORD 110$-40$ 3 Semi-colon 
166 50$: ADDL2 RO,R4 ; Else note the wildcard character 
16 RB 106$ ; Go get another character 
168 60S: SUBW3 4 =#*A/0/-30,R1,R0 3; Convert digit to RAD-50 
198 RB $ : Go save RAD-50 character 
170 70$: SUBW #*X20,R1 3; Convert lower to upper case 
171 80$: SUBWS = #*A/A/=1,R1,R0 ; Convert ahplabetic to RAD-50 
He 90$: ADDWZ 0,(R10) ; Accumulate characters 
173 100$: MOVB R1,(R11)+ ; Save ASCII character 
174 DECL R ; One less character 
175 BLEQ 110$ ; Xfer if no more 
176 INCL : Else update pointer also 
177 110$: SOBGTR R5,20$ ; Continue till word full 
178 TSTW R1i0)+ 3; Advance to next RAD-50 word 
1” SOBGTR R3,10$ : Continue till all full 
181 ; Check for FIBSV_ALLNAM set and the first character of the file name string 
18¢ 3 being a dot. This hack is used by the compatability mode program PIP. 
184 MOVL FIBCAP),R8 3; Get the address of the FIB 
185 BEQL 120$ - Skip fol Lquing if no FIB given 
186 BBC #F IBSV ALLNAM,F IBSW_NMCTL(R8) ,120$ ; Xfer if file name present 
187 MOVL P ; Get saved pattern pointer 
188 MOVB #*A/*/, (R11) 4 ; Save a wild name character 
13) BRS 125$ : Go note wildcard use 
13) ; Set any applicable wildcard flags. 
198 120$: ADDL3 #1,(SP)+,RO0 ; Clean stack & set up for below 
194 TSTL RG 3; Any wildcards at all? 
195 BEQL 1408 ; Xfer if no wildcards at all 
136 CMPL R4 ,#STAR ; Single asterisk? 
19 BNEG 1306$ : Xfer if not 
138 CMPL Re R11 : See if asterisk is alone 
19 BNEQ 136$ : Xfer if not alone 
00 1q33: BISW #NMBSM_ALLNAM,NMBSW_FLAGS(R9) ; Else note wild field 
o 130$: B1SW #NMBSM_WILD .NMBSW_FCAGS(R9) ; Note presence of wildcards 
g 3; Now that the file name field has been built, check the delimiting character. 
Be ; The only legal characters are period and semi-colon. 
$ 140$: MOVZBL (R7),R1 3; Get the delimiting character 
BSBW TYPE ; Get character class 
3 CASEL Rg #0, #7 ; Dispatch on character class 
150$: .wORD 1768-1508 : End of the string 
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v04-000 MAKE _NAMEBLOCK = Bui id RAD=50 name block aes 7 98:43:82 LPT ian SRC MAKNMB .MAR; 1 . (§) 
ED’ 0088 19 -WORD BADFILENAME-150$ ; Percent sign 
ED’ BD 1 -WORD BADFILENAME-150$ 3 Asterisk 
ED’ OOBF 1 «WORD BADFILENAME-150$ 3; Digit 
ED’ OOC 1 «WORD BADFILENAME-150$ 3; Lower case alphabetic 
7% C 14 WORD panei NAME-150$ 3; Upper case alphabetic 
3 3, C 15 WORD 1 Ss 3; Period 
19° C 1 -WORD 170$-150$ : Semi-colon 
8B 1 4 bce 17 160$: MOVB R1,(R11)¢ 3; Else save ASCII character 
6 OD cc 18 DECL Rg 3; One less character 
7 06 O0C 1 INCL R ; Next position in the buffer 
oe 44 9 BRB 180$ : Go check for PIP hack 
000 § ; Make sure that the file name is properly delimited. 
8B 2—E 90 Bop : 170$: MOVB #*A/./,(R11)+ ; Else terminate file name properly 
bop2 § ; Build the file type field. This consists of 3 RAD-50 characters. 
5B dD 00D5 8 180$:  PUSHL R11 ; Save current pattern pointer 
54 D4 00D7 9 CLRL R4 ; Clear wildcard flag 
03 00 O00D9 0 MOVL #3,R5 ; Number of characters to pack 
6A 28 Ad 00DC 31 190$: MuLW2 #46,(R10) : Make room for RAD-50 char 
67 9A OODF § MOVZBL (R75,R1 ; Get next source gern char 
00c9 = 330 ht 3 BSBW YPE 3; Determine character class 
07 00 50 CF OOE $e 500s: CASEL RO, #0, #7 ; Dispatch on character class 
0030" 00E9 5 210$:  .WORD 2808-2108 : End of the string 
0010' OOEB 36 «WORD 208-2108 ; Percent sign 
id QOED 37 WORD Gi 10$ 3; Asterisk 
0015" OOEF 38 - WORD 0$-210$ ; Digit 
001B° OOF! 39 «WORD 40$-210$ ; Lower case alphabetic 
QO1E* OOF3 40 «WORD 50$-210$ ; Upper case alphabetic 
0030° OOFS se WORD 80$-210$ : Period 
0030° OOF7 s -WORD 280$-210$ : Semi-colon 
54 50 CO OOF9 st 220$ ADDL2 kO,R ; Else note the wildcard character 
12 11 OOFC 44 BRB 270$ ; Go get another character 
a pe! ee pons 245 230$: SUBW3 #*A/0/-30,R1,R0 : Convert digit to RAD-50 
09 11 «2010 46 BRB 260$ 3; Go save RAD-50 character 
51 20 x 0104 47 240$:  SUBW #*X20,R1 ; Convert lower to upper case 
50 51 6040 8F A3 0107 48 250$: SUBW #*A/A/-1,R1,R0 ; Convert ahplabetic to RAD-50 
6A 50 ad 0100 49 260$: ADDW2 RO,(R ; Accumulate characters 
8B 51 £4290 O11 50 270$:  MOVB R1,(R11)+ ; Save ASCII character 
56 D7 011 51 DECL R6 3; One less character 
O¢ 15 011 26 BLEQ 280$ ; Xfer if no more 
5 dg ai 2 INCL R7 ; Else update pointer also 
ce 3. F 1? 22 280$: SOBGTR R5,190$ > Continue till word full 
He 2$ ; Check for FIBSV_ALLTYP set and the first character of the file type . 
11C 57 ; string being a dot or a semi-colon. This hack is used by the compatability 
FS 28 ; mode program PIP. 
58 04 AC 00 11¢ 60 MOVL FIBCAP) ,R8 ; Get the address of the FIB_ 
OD 1 1 61 BEQL 2908 > Skip following if no FIB given 
08 14 A8 O04 €1 QI 66 BBC #F IBSV_ALLTYP,F IBSW_NMCTL(R8) ,290$ ; Xfer if file name present 
5B «6E 4 1 6 MOVL , ; Get saved pattern pointer 
8B 2A 9 12A 64 MOVB #*A/*/,(R11)+ : Else save a wild type character 
| ae : D 9? BRB 300$ ; Go note wildcard use 
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v04-000 MAKE _NAMEBLOCK = Build RAD-50 name block eet 88: 1 F11A.SRCJMAKNMB.MAR; 1 . (3) | 
} f 67 ; Set any applicable wildcard flags. | ; 
50 «BE 9} Ci Q1¢F $3 290$: ADDL3 #1,(SP)+,R0 3; Clean stack & set af? for below ; 
4 be 1 0 TSTL = RG 3 Any wildcards at | : 
14 #1 1 71 BEQL 3208 ; Xfer if no wildcards at all ‘ 
02 54 Di 1 i CMPL R4 ,#STAR i Single eetertent ‘ 
09 le 18a 3 BNEG ©3108 i xfer if n | 
58 0 di O13¢ 74 CMPL RO,R11 : See if asterisk: Me alone ‘ 
046 12 O13F 275 BNEQ 16$ : Xfer if not a : 
10 Ao :10 As 141 6 $008: BISW INROSH -ALLTYP,NMBSW_FLAGS(R9) ; Else note wild field ‘ 
10 A9 «60100 BFA 103 f 10$: BISW2 #NMBSMWILD,NMBSW_FLAGS(R9) ; Note presence of wildcards | ; 
Rite 23 ; Now set the size of the pattern string. | : 
50 13 Ad a 0148 81 320$: MOVAB NMBST_ASCNAMTXT(R9) ,RO ; Get base address : 
1209 5B 50 8 eH Hs SUBB3 RO, R1T,NMBSB_ASCNAMSIZ(R9) ; Save size of pattern string : 
0154 84 ; Now that the file name field has been built, check the +p dn Boy character. ; 
B13 $2 3; The only legal characters are period, semi-colon, and end of string : 
51. 67) GA (0154 $89 MOVZBL rer} R1 ; Get the delimiting character ; 
0054 30 0157 88 BSBW YPE ; Get character class : 
07 O00 50 (CF Q15A 89 CASEL #0, #7 3; Dispatch on character class ; 
oo7' Oise 596 3308: SWORD SBds~S$08 : End of the string : 
0048' 0160 91 «WORD BADF ILENAME= 3308 ; Percent sign : 
0048' 0162 35 «WORD BADFILENAME-330$ 3 Asterisk : 
0048' 0164 $3 ‘ BADF ILENAME-330$ 3 Digi : 
0048" 0166 94 «WORD snd ae tts 3; Lower case alphabetic : 
it B18 sae ae B0s-8805 330$ ; ppegr case alphabetic : 
0010" 016C 297 “WORD 3408-3308 ; Semi-colon ; 
56 D7 016 298 340$: DECL R6 : One less character : 
33. «15 0190 99 BLEQ 380$ : Xfer if pophing left to parse : 
57 06 HES i INCL R7 3; Next position in the buffer : 
0174 8 3; Now for the version. If the version is not wild, and there are characters : 
0174 0 ‘ left to parse, try to get the binary version number. If this fails, note : 
git be 3; the error. : 
01 56 D1 0174 06 360$: CMPL R6,#1 3; Check for only one char : 
0D 14 0177 307 BGTR 3708 ; Xfer if more than one char ; 
2A «66791 (0179 08 CMPB (R7) ,#*°A/*/ | ise check for a wildcard 3 
08 12 017C 09 BNEQ 3708 Xfer if not wild : 
10 Ad =: 0108 or . Bice 19 Bisue gunesn. WILD! NMBSM_ALLVER,NMBSW Ftngstig) er : Else note wild : 
7E D4 0186 \¢ 370$: CLRL -(SP) ; Storage for Pconverted version | : 
Te Se 00 188 1 MOVL SP,-(SP) ; Save address of storage 3 
—s 2 7D 0188 14 mova + Pte: ; Save count and address 3 
00000000 ' GF ‘ Fe 136 15 CALLS #5,G*LIBSCVT_DTB ; Convert to binary 3 
0— 50 ~«€ 19 16 BLBC RO BADE ILENARE ; Xfer if any errors | 3 
OOOO7FFF 8F 6€ D1 0198 31 CMPL © (SP) , #32767 : Else range check | ; 
9 1A 019F 8 BGTRU BADFILEVER : Xfer if bad version number : 
OE AD «68BE-OOF? a ? CVTLW (SP)+,NMBSW_VERSION(R9) ; Else save version number | : 
iN ; ; All is done. Return to the caller. : 
04 O1A5 é 380$: RET | 3 
| 
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EXIT #SS$_BADF ILENAME 
0 BADFILEVER: 
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K 
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3; Error returns. 
ERR_EXIT #SS$_BADFILEVER 


n 

C 
 BADFILENAME: 
8 ERR_EX 
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FUNCTIONAL DESCRIPTION: 


This routine determines the type code of the current character 
in the string. 


CALLING SEQUENCE: 
TYPE () 

INPUT PARAMETERS: 
NONE 


iia *| INPUTS: 
: number of characters left in string 
. : string pointer 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
kype code of character: 
end of string 
: percent 
: star 
: numeric 
: lower case alpha 
: upper case alpha 


NOUNS 


: combailan 
SIDE EFFECTS: 
NONE 


TYPE: £9 RO Assume nothing Left 


STL R6 E correct assumption? 
BLEQ 30$ 3; Xfer 70 
MOVL #1,R0 3; Set sale al index 
10$:  CMPB (R?),LO_CHR_TABLELROJ : Within limits? 
BLSSU ; Xfer if not 
CMPB = (R7) ,HI_CHR_TABLECROJ 
BLEQU 30% 
208: AOBLEQ #7,R0,10$ 3: Continue tile end 
BRW BADF ILENAME ; Illegal jf off the end 
30$: RSB ; Return with class in RO 
END 


< 
g 
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MAKNMB = Build the name block 16-SEP-1984 00:43:57 VAX/ VAS Macro V04-00 Page 10 | 
Symbol table 6-SEP-1984 13:54 (CF11A.SRCJMAKNMB.MAR; 1 649) 
TYPE = 003 | 
BADFILENAME A6 R 0g 
BADF ILEVER 1AA R 
it P_TYPE = 4 
= 
DIRECTORY_TYPE = 3 
DOT F 
FCB_TYPE = 0000000 
FIB = 4 04 
FIBSV_ALL = 00000005 
FIBSV_ALLTYP = 00000004 
Fl NMCT = 808 14 
HEADER_TYPE = 000 
HI_CHR_TABL 44444 8 02 
INDEX_ TYPE = 000000 
ALPHA = 00000004 
GTH = 00000008 
LIBSCVT_DTB eeeeeeee 02 
LO_CHR_TABLE 00000000 R Bs 
MARE_NAMEBLOCK 0000010 RG 0 
MVL_TYPE = 00000004 
NAME BLOCK = 0000001 
NMBS$B_ASCNAMSIZ = 0000001 
NMBSC_LENGTH = Sit 8 
NMBSM_ALL = 00000020 
NMBSM_ALLTYP = 00000010 
NMBSM_ALLVER = 00000008 
$M_WILD = sa ah 
te le = 0000001 
NMBSW_FLAGS = 00000010 
NMBSW_NAME = 00000006 
NMBSW" VERSION = QO00000E 
PERCERT = 00000001 
RVT_TYPE = 44444 03 
SEMT = 00000007 
SS$_BADF ILENAME teeeeeee =X 8602 
SS$_BADF ILEVER eeneenee = =X |= OQ 
STAR = 00000002 
= 0000000C 
0000 ine R 02 
= 0000000 
= 0000000 
= 0000000 
dew er eerer eer eee = + 
H Psect synopsis ! 
Allocation PSECT No. Attributes 
0000000 ( ) 69 ( 0.) NOPIC USR CON ABS” LCL ee NOE XE WORD wat NOVEC BYTE 
0000000 < 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD NOVEC BYTE 
QOOOOICF <¢ NOPIC USR CON REL LCL NOSHR' EXE RD NOURT NOVEC LONG 
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MAKNMB ‘ - Build the name block 1 mise ts 9 00:43:37 YAX/yAS Macro V04-00 
VAX=-11 Macro Run Statistics “SEP-1984 713:54 F11A.SRC JMAKNMB.MAR; 1 


Si ee 


! Performance indicators ! 


i ee 


Phase Page faults CPU Time Elapsed Time 
Initializati 9 0:09.1 0:00:00.45 
Feaneed processing 13 88 0: 9:78 Q: if 3°68 
Pass 1 190 + 0: #8 0:00:09. 
pesos table sort 82 200: q- ; 0: 0: 6:04 
Setel table aetna §:00:00:08  00:00;00:08 
Psect synopsis output 1 ie : 8-08 BF Re BO OF 
Cross-reference output 9 0:00:00.0 Ba! B8 00-0 
Assembler run totals 43 00:00:05.88 00:00:19.47 


The working set Limit was 1050 pages. : 

18307 bytes (36 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 245 non-local and 41 local symbols. 
9 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

13 pages of virtual memory were used to define 12 macros. 


| eT 


: 
Fre c mew erowe wenn ero cmmecnaes + 


Macro Library name Macros defined 
_$255$DUA28: CSYS.OBJILIB.MLB; 1 1 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 5 


278 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MAKNMB/OBJ=OBJ$:MAKNMB MSRC$:F CPPRE/UPDATE=(ENHS:F CPPRE) +MSRC$ :MAKNMB/UPDATE=(ENH$ : MAKNMB) +EXECML$/LIB 


L EQUIPMENT CORPORATION 


O16 AH-BT13A-SE 
ENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


